﻿<%
Dim i_u : i_u = Request.ServerVariables("SCRIPT_NAME") & "?" & Request.QueryString
Dim t_h : t_h = Application("%Ashapo_Html_Cache%")
If IsArray(t_h) Then
	If TypeName(t_h(0)) = "Dictionary " Then
		If t_h(0).Exists(i_u) Then
			Server.Transfer(t_h(0)(i_u))
		End If
	End If
End If
Dim i_g : i_g = Request.QueryString("g")
Dim i_m : i_m = Request.QueryString("m")
Dim i_a : i_a = Request.QueryString("a")
If i_g = "" Then i_g = "home" End If
If i_m = "" Then i_m = "index" End If
If i_a = "" Then i_a = "index" End If
Dim path : path = "/data/_cache/_run/" & i_g & "/" & i_m & "_" & i_a & ".asp"
Dim t_a : t_a = Application("%Ashapo_Asp_Cache%")
If IsArray(t_a) Then
	If TypeName(t_a(0)) = "Dictionary " Then
		If t_a(0).Exists(path) Then
			Server.Transfer(path)
		Else
			Server.Transfer("/ashapo/index.asp")
		End If
	Else
		Server.Transfer("/ashapo/index.asp")
	End If
Else
	Server.Transfer("/ashapo/index.asp")
End If
%>